home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir42 / c7105.zip / WARNINGS.TPX < prev   
Text File  |  1994-03-02  |  17KB  |  294 lines
  1. #!┌───────────────────────────┤Template Segment├───────────┬─────────────────┐
  2. #!│                              Warnings.TPX              │Version: 3007.105│
  3. #!├───────────────────────────────┤Contents├───────────────┴─────────────────┤
  4. #!│Structure             Type       Description                              │
  5. #!│────────────────────  ─────────  ─────────────────────────────────────────│
  6. #!│InvalidFileMsg        GROUP                                               │
  7. #!│BadKeyMsg             GROUP                                               │
  8. #!│KeyBuildErrorMsg      GROUP                                               │
  9. #!│PrinterOffLineMsg     GROUP                                               │
  10. #!│PrintDeviceError      GROUP                                               │
  11. #!│DelTempFileErrMsg     GROUP                                               │
  12. #!│NotEnoughMemMsg       GROUP                                               │
  13. #!│GeneralErrorMsg       GROUP                                               │
  14. #!│KeyedRecordReadMsg    GROUP                                               │
  15. #!│RecordChangedMsg      GROUP                                               │
  16. #!│BadTrxPrimaryMsg      GROUP                                               │
  17. #!│BadTrxChildMsg        GROUP                                               │
  18. #!│ParentLockedMsg       GROUP                                               │
  19. #!│ParentWriteErrMsg     GROUP                                               │
  20. #!│FileSizeWarningMsg    GROUP                                               │
  21. #!│FileTooLargeMsg       GROUP                                               │
  22. #!│FieldValueTooHigh     GROUP                                               │
  23. #!│FieldValueTooLow      GROUP                                               │
  24. #!│FieldValueOutOfRange  GROUP                                               │
  25. #!│ParentRecordNotFound  GROUP                                               │
  26. #!│RIRestrictMsg         GROUP                                               │
  27. #!│AbortTransactionMsg   GROUP                                               │
  28. #!│RIUpdateError         GROUP                                               │
  29. #!│RIDeleteError         GROUP                                               │
  30. #!│TransactionLockMsg    GROUP                                               │
  31. #!│TransactionErrorMsg   GROUP                                               │
  32. #!│RIRecNotAvailMsg      GROUP                                               │
  33. #!│TransactionHeldMsg    GROUP                                               │
  34. #!│UnableToContinueMsg   GROUP                                               │
  35. #!│LineTooLongMsg        GROUP                                               │
  36. #!│ToDoMsg               GROUP                                               │
  37. #!│AutoIncDuplicateMsg   GROUP                                               │
  38. #!│UpdateErrorMsg        GROUP                                               │
  39. #!│DupKeyErrorMsg        GROUP                                               │
  40. #!│CreateFailureMsg      GROUP                                               │
  41. #!├───────────────────────────────┤Comments├─────────────────────────────────┤
  42. #!│Version   Comments                                                        │
  43. #!│────────  ────────────────────────────────────────────────────────────────│
  44. #!│3007.000  Release of CDD3 version 3007 templates                          │
  45. #!│3007.103  Modified AbortTransactionMsg GROUP                              │
  46. #!│3007.105  Added AutoincDuplicateMsg GROUP                                 │
  47. #!│          Added UpdateErrorMsg GROUP                                      │
  48. #!│          Added DupKeyErrorMsg GROUP                                      │
  49. #!│          Added CreateFailureMsg GROUP                                    │
  50. #!│          Modified TransactionLockMsg GROUP                               │
  51. #!│          Modified TransactionErrorMsg GROUP                              │
  52. #!└──────────────────────────────────────────────────────────────────────────┘
  53. #!
  54. #!****************************************************************************
  55. #GROUP(%InvalidFileMsg)
  56. GLO:Message1 = 'Error accessing: '& NAME(File)
  57. GLO:Message2 = 'Code: ' & ERRORCODE() & ' ' & ERROR()
  58. GLO:Message3 = 'Press OK to return to DOS'
  59. ShowWarning
  60. #!****************************************************************************
  61. #GROUP(%BadKeyMsg)
  62. GLO:Message1 = NAME(File) & ' Key file is invalid'
  63. GLO:Message3 = 'Press OK to rebuild keyfile'
  64. ShowWarning
  65. #!****************************************************************************
  66. #GROUP(%KeyBuildErrorMsg)
  67. GLO:Message1 = NAME(File) & ' The file cannot be repaired'
  68. GLO:Message2 = 'while other stations are using it'
  69. GLO:Message3 = 'Press OK to return to DOS'
  70. ShowWarning
  71. #!****************************************************************************
  72. #GROUP(%PrinterOffLineMsg)
  73. GLO:Message1 = 'The Printer is OffLine!'
  74. GLO:Message3 = 'Please Correct the Situation!'
  75. ShowWarning                                      #<! Show an error message
  76. #!****************************************************************************
  77. #GROUP(%PrintDeviceError)
  78. GLO:Message1 = CLIP(PrintDevice) & ' is not ready.'
  79. GLO:Message2 = 'Be sure the Printer is online and attached to'
  80. GLO:Message3 = 'the specified device and try again.'
  81. ShowWarning                                      #<! Show an error message
  82. #!****************************************************************************
  83. #GROUP(%DelTempFileErrMsg)
  84. GLO:Message1 = 'Could not delete temporary file'
  85. GLO:Message3 = TempFile
  86. ShowWarning
  87. #!****************************************************************************
  88. #GROUP(%NotEnoughMemMsg)
  89. GLO:Message1 = 'Not Enough Memory to proceed'
  90. GLO:Message3 = 'with this operation . . . . '
  91. ShowWarning
  92. #!****************************************************************************
  93. #GROUP(%GeneralErrorMsg)
  94. GLO:Message1 = ERRORCODE() & ' ' & ERROR()
  95. GLO:Message3 = 'Unable to continue . . . .'
  96. ShowWarning
  97. #!****************************************************************************
  98. #GROUP(%KeyedRecordReadMsg)
  99. GLO:Message1 = 'Unable to READ keyed record'
  100. GLO:Message2 = 'Cannot continue update....'
  101. GLO:Message3 = 'Error: '&ERRORCODE() & ' ' & ERROR()
  102. ShowWarning
  103. #!****************************************************************************
  104. #GROUP(%RecordChangedMsg)
  105. GLO:Message1 = 'The Record was changed by another station '
  106. GLO:Message2 = 'your screen now reflects the changed data '
  107. GLO:Message3 = 'OK button to continue, or CANCEL to abort '
  108. ShowWarning
  109. #!****************************************************************************
  110. #GROUP(%BadTrxPrimaryMsg)
  111. GLO:Message1 = 'Unable to save your changes at this time.'
  112. GLO:Message2 = 'Another user may be saving a transaction.'
  113. GLO:Message3 = 'Try again.'
  114. ShowWarning
  115. #!****************************************************************************
  116. #GROUP(%BadTrxChildMsg)
  117. GLO:Message1 = 'Unable to save your changes at this time.'
  118. GLO:Message2 = 'Error: '& ERROR()
  119. GLO:Message3 = 'Make any necessary changes and try again.'
  120. ShowWarning
  121. #!****************************************************************************
  122. #GROUP(%ParentLockedMsg)
  123. GLO:Message1 = 'This %ParentFile Entry is being updated'
  124. GLO:Message3 = 'by another user.  Try again later. '
  125. ShowWarning
  126. #!****************************************************************************
  127. #GROUP(%ParentWriteErrMsg)
  128. GLO:Message1 = 'Unable to save %ParentFile Entry.'
  129. GLO:Message2 = 'Error: '& ERROR()
  130. GLO:Message3 = 'The entry has not been saved.'
  131. ShowWarning
  132. #!****************************************************************************
  133. #GROUP(%FileSizeWarningMsg)
  134. GLO:Message1 = 'This is a large file and may take a while'
  135. GLO:Message2 = 'to load.  You may press the Esc key'
  136. GLO:Message3 = 'while the file is loading to exit.'
  137. ShowWarning                                  ! Show a warning screen
  138. #!****************************************************************************
  139. #GROUP(%FileTooLargeMsg)
  140. GLO:Message1 = 'Error: ' & ERROR()         ! Create the error message
  141. GLO:Message2 = 'This file is too large to be read into memory.'
  142. GLO:Message3 = 'The entire file will not be displayed.'
  143. ShowWarning                                !  Show the error message
  144. #!****************************************************************************
  145. #GROUP(%FieldValueTooHigh)
  146. #IF(%ScreenFieldPrompt)
  147. GLO:Message1 = 'The value entered in %ScreenFieldPrompt'
  148. #ELSE
  149. GLO:Message1 = 'The value entered in %FieldID'
  150. #ENDIF
  151. GLO:Message3 = 'cannot exceed %FieldRangeHigh'
  152. ShowWarning                                !  Show the error message
  153. #!****************************************************************************
  154. #GROUP(%FieldValueTooLow)
  155. #IF(%ScreenFieldPrompt)
  156. GLO:Message1 = 'The value entered in %ScreenFieldPrompt'
  157. #ELSE
  158. GLO:Message1 = 'The value entered in %FieldID'
  159. #ENDIF
  160. GLO:Message3 = 'cannot be less than %FieldRangeHigh'
  161. ShowWarning                                !  Show the error message
  162. #!****************************************************************************
  163. #GROUP(%FieldValueOutOfRange)
  164. #IF(%ScreenFieldPrompt)
  165. GLO:Message1 = 'Valid entries for %ScreenFieldPrompt'
  166. #ELSE
  167. GLO:Message1 = 'Valid entries for %FieldID'
  168. #ENDIF
  169. GLO:Message3 = 'are from %FieldRangeLow TO %FieldRangeHigh'
  170. ShowWarning                                !  Show the error message
  171. #!****************************************************************************
  172. #GROUP(%ParentRecordNotFound)
  173. GLO:Message1 = 'Error: ' & ERRORCODE() & ' '& ERROR() #<! Build error message
  174. GLO:Message2 = 'The value you enter must exist in the'#<!Tell User what to do
  175. #IF(%FileDescription)                            #! If a Description Provided
  176. GLO:Message3 = '%FileDescription File'           #<! Identify the Lookup file
  177. #ELSE                                            #! ELSE (No Description)
  178. GLO:Message3 = 'File: %FieldLookup'              #<! Identify the Lookup file
  179. #ENDIF                                           #! END (If Description...)
  180. ShowWarning                                      #<! Show the error message
  181. #!****************************************************************************
  182. #GROUP(%RIRestrictMsg)
  183. GLO:Message1 = 'This record is referenced from other file(s)'
  184. GLO:Message2 = 'Linking field(s) have been restricted from'
  185. GLO:Message3 = 'change and have been reset to original values'
  186. ShowWarning                                      ! Show the warning message
  187. #!****************************************************************************
  188. #GROUP(%AbortTransactionMsg)
  189. #!
  190. #!┌────────────────────────────┤Template Group├────────────┬─────────────────┐
  191. #!│                           AbortTransactionMsg          │Version: 3007.103│
  192. #!├──────────────────────────────┤Description├─────────────┴─────────────────┤
  193. #!│Purpose:      Generate Message concenring Aborted RI Transactions         │
  194. #!│Called From:  RIUpdates #GROUP in Relation.TPX                            │
  195. #!│              RIDeletes #GROUP in Relation.TPX                            │
  196. #!│Assumptions:  None                                                        │
  197. #!│Inserts:      None                                                        │
  198. #!│Symbols Set:  None                                                        │
  199. #!│Notes:        None                                                        │
  200. #!├───────────────────────────────┤Comments├─────────────────────────────────┤
  201. #!│Version   Comments                                                        │
  202. #!│────────  ────────────────────────────────────────────────────────────────│
  203. #!│3007.000  Release of CDD3 version 3007 templates                          │
  204. #!│3007.103  Removed the call to ShowWarning.                                │
  205. #!└──────────────────────────────────────────────────────────────────────────┘
  206. #!
  207. GLO:Message1 = 'Unable to complete the transaction'
  208. GLO:Message2 = 'Error: ' & ERRORCODE() & ' ' & ERROR()
  209. GLO:Message3 = 'Files have been restored to original values'
  210. #!****************************************************************************
  211. #GROUP(%RIUpdateError)
  212. GLO:Message1 = 'Unable to complete the Referential Update'
  213. GLO:Message2 = 'Error: ' & ERRORCODE() & ' ' & ERROR()
  214. GLO:Message3 = 'File: %Primary could not be updated !'
  215. ShowWarning                                      ! Show the warning message
  216. #!****************************************************************************
  217. #GROUP(%RIDeleteError)
  218. GLO:Message1 = 'Unable to complete the Referential Delete'
  219. GLO:Message2 = 'Error: ' & ERRORCODE() & ' ' & ERROR()
  220. GLO:Message3 = 'File: %Primary could not be deleted !'
  221. ShowWarning                                      ! Show the warning message
  222. #!****************************************************************************
  223. #GROUP(%TransactionLockMsg)
  224. glo:Message1 = 'The transaction cannot be completed at '
  225. glo:Message2 = 'at this time.  One or more of the files'
  226. glo:Message3 = 'is already locked.  You may retry the operation'
  227. #!****************************************************************************
  228. #GROUP(%TransactionErrorMsg)
  229. glo:Message1 = 'The transaction cannot be completed'
  230. glo:Message2 = 'at this time.  The error posted was: '
  231. glo:Message3 = ERROR()
  232. #!****************************************************************************
  233. #GROUP(%RIRecNotAvailMsg)
  234. GLO:Message1 = 'Unable to complete the transaction'!Prepare warning message
  235. GLO:Message3 = 'Updated Record is no longer available'!Prepare warning message
  236. #!****************************************************************************
  237. #GROUP(%TransactionHeldMsg)
  238. GLO:Message1 = 'The Record is locked by another workstation '
  239. GLO:Message2 = 'when you return to the entry FORM choose OK '
  240. GLO:Message3 = 'to try the update again, or CANCEL to abort '
  241. ShowWarning                                      #<!Show user a warning
  242. #!****************************************************************************
  243. #GROUP(%UnableToContinueMsg)
  244. GLO:Message2 = 'Unable to continue, Press OK to exit'
  245. ShowWarning                                      #<!Notify the user
  246. #!****************************************************************************
  247. #GROUP(%LineTooLongMsg)
  248. GLO:Message1 = 'The line length is greater than %FileLineLength.'
  249. GLO:Message2 = 'The selected file is not an ASCII file.'
  250. GLO:Message3 = 'No view on this file is available.'
  251. ShowWarning                                      #<! Show an error message
  252. #!****************************************************************************
  253. #GROUP(%ToDoMsg)
  254. GLO:Message1 = 'The Procedure'                   #<! set First Message Line
  255. GLO:Message2 = '%MessageLine2'                   #<! set Second Message Line
  256. GLO:Message3 = 'Has Not Yet Been Defined'        #<! set Third Message Line
  257. ShowWarning                                      #<! and inform the user
  258. #!****************************************************************************
  259. #GROUP(%AutoIncDuplicateMsg)
  260. GLO:Message1 = 'When adding a record, an unexplained Duplicate'#<! set First Message Line
  261. GLO:Message2 = 'error was encountered.'          #<! set Second Message Line
  262. ShowWarning                                      #<! and inform the user
  263. #!****************************************************************************
  264. #GROUP(%UpdateErrorMsg)
  265. CASE Action                                      !Error message based on Action
  266.   OF AddRecord
  267.     GLO:Message1 = 'Error attempting to ADD Record'
  268.   OF ChangeRecord
  269.     GLO:Message1 = 'Error attempting to CHANGE Record'
  270.   OF DeleteRecord
  271.     GLO:Message1 = 'Error attempting to DELETE Record'
  272. END                                      !End CASE Action
  273. GLO:Message2 = 'The file: %Primary could not be updated'
  274. GLO:Message3 = 'Code:'&Errorcode()&': '&Error()
  275. ShowWarning                                      !Notify the user
  276. #!****************************************************************************
  277. #GROUP(%DupKeyErrorMsg)
  278. GLO:Message3 = '[ '
  279. #FOR(%KeyField)
  280. GLO:Message3 = Clip(GLO:Message3) & (' %KeyField ')
  281. #ENDFOR
  282. GLO:Message3 = Clip(GLO:Message3)&' ]'
  283. GLO:Message1 = 'This record creates a duplicate key entry'
  284. GLO:Message2 = 'The unique key field(s) are listed below: '
  285. ShowWarning                                  #<!inform the user
  286. #!****************************************************************************
  287. #GROUP(%CreateFailureMsg)
  288. GLO:Message1 = 'The creation of ' & NAME(File)
  289. GLO:Message2 = 'failed.  The error received was:'
  290. GLO:Message3 = ERRORCODE() & ' - ' & ERROR()
  291. ShowWarning                                  #<!inform the user
  292. #!****************************************************************************
  293. #CHAIN('CPD21.TPX')
  294.